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SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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Version: *v04-000' 


PARRRASAASARAALASALALELAALASSLAL EL EL ALES EEE ESE SESE SESE SERRE REESE ESSE EEE SEAS 


* 
* (COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
* ALL RIGHTS RESERVED. 

® 


4 THIS SOFTWARE + FURNISHED UNDER A LICENSE AND MAY BE USED AND og be 
sd fare IN ACCORDA : NCE WITH THE TERMS OF SUCH LICEN 3° gar aie THE 


{* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
{* TRANSFERRED. 


{* phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
= s =. he NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 


{* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
{* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


E 
T 


e@eeneeneeenenee eee neaeenne 


| 
| 
i 
| 
| 
| 
| 
| 
| 
(eee eee eee RRR E RAAT ERATE eee eee eee 
| 
| 
| 
| 


{ 
; FACILITY: SYSLOA = System loadable code 
t ABSTRACT: 
{ This file contains the SDL source for definitions relating to 
? the cluster loadable code. 
? ENVIRONMENT : 
{ n/a 
{ 
{oo 
{ 
{ AUTHOR: Steve Beckhardt CREATION DATE: 77-Jan-1983 
f MODIFIED BY: 
{ V¥03-047 DWT10229 AB pate Ww. Thiel 25-Jul-1984 
; Update proto level tg 12 to force 
t incompatibil eee FT2 update. 
{ V03-046 DWT0224 David W. Thiel 27-Jun-1984 
{ Update protocol level to 11 toe FT2 update. 
v03-045 purceos David W. Thiel 25-Mar-1984 | 
Remove symbols CNCTSV QUORUM and CNCTS$V_ TRANSITION. 
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v03-044 


v03-043 


v03-042 


v03-041 


v03-040 


v03-039 


v03-038 


v03-037 


v03-036 


v03-035 


v03-034 


v03-033 


v03-032 
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RSHO123 Scott Hanna 25-Mar-1984 
Replace SCLUOBDEF “with SCLUQFDEF. 

DWT0198 Bae W. Thiel 23-Mar-1984 
Correct previ addition - to CLMPRODEF. Add 
CLMSTS$O JREFT IME t o CLMSTSDEF. 

DWT0197 David W. Thiel 22-Mar-1984 
Add flags field to CLMPRODEF. Remove some obsolete 
bits from the flags field in CLMSTSDEF. Update 
protocol level to 10. 

$RBO117 Steve Beckhardt 18-Mar-1984 
Added message definitions for distributed deadlock detection. 
DWT0186 David W. Thiel 9=-Mar-1984 
Add CLSMSG$K_FAC "BLK for block transfer messages. 
Add CLSMSGSK"FAC_TST for testing/measurement. 

Add CLMBLKDEF to define special block transfer 
messages. 

DWT0176 David W. Thiel ——— 
Add CLMPRO$SW_QDVOTES to propagage number of v 
assigned to the quorum disk. Add CLMSTSSV shut Down 

support phuseer shutdown and CLMSTS$V_QF_DYNVOTE. 

Add CLMDRSS$SV_LONG BREAK. Add CLUBTXS$L *ASGBLD. 
Update CNCTST PROTOCOL to 9. 

DWT0159 David Ww. Thiel 11-Jan-1983 
Add CLSMSG$K_FAC “CSP pL tgp facility messages. 
$RBO106 Steve Beckhardt 18-Nov-1983 

Added several definitions in SLKMSGDEF. 

DWT0151 avid Ww. Thiel 11-Dec-1983 


Add CLMSTS$W_ apvores to support variable number of 
votes for he = Gare disk. Remove unused fields 
from CLMSTS message. ag, cluster protocol level 
(ONCTSR " PROTOCOL) = to 8 ute worst case cluster 
message size as CLSMSGSK_MAX +e and update some 
message definitions to support this computation. 
Remove CLMPROSL_DIRSYS field ee CLMPRODEF . 


DWT0144 David W + 11 =e 
Add CLMSTS$W LCKDIR field ot LMSTSDEF and t 
CLMPROSL_FMERIT and CLMPROSW_MEMSEQ fields - * CLMPRODEF . 


RSHO076 Scott Hanna 09-Nov-1983 
SCLUQBDEF - inioee INVALID ay to IGNORE and move it out 
of the fields that contr ‘bute t o the checksum. Update the 
quorum block version numbe 
LY0433 arry Yetto 8-NOV-1983 17:33 
fix spelling of BLKREADDATA 


DWT0141 David W. Thiel 07-Nov-1983 


CLI 
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v03-031 


v03-030 


v03-029 


v03-028 


v03-027 


v03-026 


v03-025 


v03-024 


v03-023 


v03-022 


v03-021 


v03-020 
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Correct header definition for connection menoger messages. 
Add definition for protocol Level (CNCTSK_PROTOCOL). 
Remove obselete definitions from SCNCTDEF: 


LY0417 Lorry Yetto 16-SEP-1983 17:02:17 
Add CJMSG$W_RD_CPLXLEN field to CJF read message 


LY0416 berry Yetto 15-SEP-1983 14:08:14 
Add CJMSGSL_RD_IRP field to CJF read message 
Add CJMSGSK-BLRJNLRC function code 


LY04610 Larry Yetto ls Me 14:21:22 
Add CJMSGSK_REQINIT and CJMSGSK_BLKINIT function codes. 


RSHO057 R. Scott Hanna 23-Aug-1983 

Add S$CLUQBDEF 

ROWO214 Ralph 0. Weber 23-AUG-1983 

Add a BIX field to save the return address for 
CNXSPARTNER_RESPOND. Previous use of another field proved 


fatal to error recovery, and there are no other fields to 
share this function with. 


DWT0124 David Ww. Thiel 22-Aug-1983 

Add reply code definitions for the CLMCNXS$B_REPLY field 

to support recovery from failures qurtos state transitions. 
Add CLMCNX$K_DATA phase to values for the 
CLMCNXS$B_XTN_PHASE field to tag messages oi the 

lock request and preceding the Phase | message. Improve 
SDL usage in ely: the flag bits in the CLMSTS$B_FLAGS 
field. Remove the obsolete CNCTSB_DIRSYS field. Improve 
SDI. usage in defining the flags bifs in the CNCT$B_CLSSTS 
CNCTSB_CNXSTS fields. Correct structure name in CCMTOP. 


RNGOO25 Rod N. Gamache 19-Aug-1983 
Remove unneeded LIMSG$ symbols, move start of GETLKI 
messages to leave room for block transfer buffer handle. 


ROWO206 Ralph 0. Weber 9-AUG~-1983 

Fix CLUBTXSK_LENGTH to match CLUBTX$T_MSG_BUF. 

LY0408 Larry Yetto 4-AUG-1983 10:57:59 
Add yet a few more fie 


lds to assorted CJF messages, this 
time Oey are for information needed for a cancel i 
Add RUEBIT function code 


DWT0114 David W. Thiel 29-Jul-1983 
Cleanup a bit. Add quorum disk support. Add 
CLMTOPDEF messages and support for quorum change 
and transition status request messages. 


LY¥0400 Larry Yetto 29-JUL-1983 11:42:21 
Add new fields to CJF messages needed for block transfers 


LY0389 _ Larry Yetto 1=JUL-1983 10:31:01 
Add new CJF dispatch codes and new fields to CJF read message 
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v03-019 


v03-018 


v03-017 


v03-016 


v03-015 


v03-014 


v03-012 


v03-011 


v03-010 


v03-009 


v03-008 


v03-007 
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Add CJMSGSMINF_MSG and CJMSGSGWRBUF_MSG and CJMSGSRWRBUF _MSG 
structures. 


ROWO0185 Ralph 0. Weber 22-JUN-1983 

Modify connection manager eocenes format to ane huge . putter 
handle. This field is located immediately follow “hg BY 
“standard” connect ten manager header. However Ss net 
included in the byte count for the standard’ hosder” This 
prevents messages which do not need the buffer handle (i.e. 
non=block transfer request 5 Begeoeee: from having to carry it 
as unused space. Also add definition for the BIX (block- 
transfer extenstion), structure type CLUBTX$. 


LYO Larry Yetto 17=JUN-1983 pas 17:31 
Rodi ty CJF read init message format to handle read a 
eove JF dispatch function codes here from the CJF definition 


RNGOO17 Rod N. Gamac 14-Jun-1983 
Add distributed GETLKI ere definitions. 


i. ¥0379 Larry Yetto 1=JUN-1983 16:42:39 
Added new fields to generic function message and status message. 
Added CJF readinit message format. 


SRB0088 Steve Beckhardt 26-May-1983 
Added new lock manager messages for failover, added 
some fields in other messages. 


LY0378 _ Larry Yetto _  26-MAY-1983 15:31:30 
Add some new fields to journaling write response message 


DWT0102 David W. Thiel tig: She: 
Add message definitions sequencing failover steps. 


LY0371 Larry Yetto 235-MAY-1983 19:01:23 

Modify common journa ing message formats. Remove journaling 
specific function fune’ ch coeet Remove CLSMSG$W_FUNC and 
leave just the $B_FUNC and $B_FACILITY symbols 


DWT0099 David W. Thiel 55-May-1983 
Make additions to connection manager message 
formats. 

SRB0078 Steve Beckhardt 15-Apr-1983 
Revised LKMSG definitions. 

DWT0091 David Ww. Thiel 9-APR-1983 


Add REMOVED as a disconnect/reject status code. 
Make all disconnect/reject codes even. 

Adjust and redefine reconnect data. 
Add CLSMSGSK_FAC_ACK facility code. 


DWT0089 David W. Thiel 29-MAR-1983 
Add reconnect data to SCNCTDEF. 
Define some connection manager messages. 


enc 
ENE 


F 
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Modify SCLSMSGDEF to make two-level dispatch 
standard. 


v03-006 DwWT0081 David W. Thiel 3-MAR-1983 
Correct SCLMDRS. 

v03-005 ROW0163 Ralph 0. Weber 25-FEB-1983 
Change journal name Petes from 15 to 12 characters. 

V03-004 DWT0076 David W. Thiel 11-FEB-1983 


Add SCLMDRS to define cluster disconnect and reject 
status values. Rearrange SCNCTOEF. | 


v03-003 ROW0160 Ralpn 0. Weber 26-JAN-1983 
Add ee 9 codes tor cluster journaling access, deaccess, 
we Meet and delete UCB's functions. Add journal-entry-in- 
e extension to cluster journal message format. Change 
CLMSG L_STATUS to CLMSGSO.. STATUS. 


v03-002 ROW0155 Ralph 0. Weber 9-JAN-1983 
Add a return status vover Lay to er message definitions. 
Add epee tt ie fields 9° A teered ournal message. Correct 
JNLTYP to be a byte fiel 


SAR AAAAAAAAAAAAAAAAAAAAAS 
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gone SCLSMSGDEF ; 
he CLSMSG = CLUSTER MESSAGE 
i THIS DEFINES THE FORMAT OF THE CLUSTER MESSAGE HEADER 


aggregate CLSMSGSTRUCT structure prefix CLSMSGS$; 


/* 
/* This union is used to compute the size of the - at} sequenced 
/* message buffer that is needed for ACKMSG. Any modifications or 


/* alternate uses of these structures (for examp Ps "te @ define 
/* block transfer messages) must take this into account. 


/* 

CLSMSGUNION union; 

CLSMSGDEF structure prefix CLSMSG$; 
SEQNUM 


word unsigned; /* MESSAGE SEQUENCE NUMBE 
ACKSEQ word unsigned; /* ACKNOWLEDGE SEQUENCE NUMBER 
RSPID 1W pyte. unsigned; /* tet ID 
FACILITY byte unsigned; /* FACILITY CODE 
constant /* FACILITY CODE VALUES 
FAC_CNX, /* CONNECTION ON MANAGER FACILITY 
FAC_LCK, /* LOCK MANAGER Y 
FAC_CJF, /* COMMON JOU RNALLING FACILITY 
FAC_ACK, /* ACKNOWLEDGED gtitne: SERVICE 
FAC_LKi, /* GETLKI SYSTEM SERVICE 
FAC_CSP, /* CSP (CLUSTER senve’ PROCESS) FACILITY 
FAC_BLK, /* BLOCK ar gy 28 RV 
age mi /* TESTING / PERFORMANCE MEASUREMENT FACILITY 


ogue Ts 1 increment 1; 

constant RES MSG Squste 2x80 tag M; /* RESPONSE MESSAGE FLAG 

FUNC byte una | pred 3 /* FACILITY SPECIFIC FUNCTION 

FILL_1 word fill; /* SPARE 

constant “LENGTH equals . prefix CLMHDR$; /* STANDARD MESSAGE HEADER LENGTH 
constant “‘LENGTH’’ equals .; 

REQR BUFH Longword dimension 3; /* Re uestor* s buffer handle. 


constant BT_LENGTH equals . pr. fix CLMHDRS; /* Message w/ block transfer 
constant BT “LENGTH equals .; /* header length 
end CLSMSGDEF ; 


/* Block transfer message definition */ 
CLMBLKDEF structure prefix CLMBLK$; 


constant ( /* FACILITY SPECIFIC MESSAGE CODES 
FNC_RETRY /* REQUEST REISSUE OF REQUESTOR REQUEST 
) equals 1 increment 
FILL_1 "tte dimension ot BRK _LENGTH; /* SPACE FOR HEADER 
RSPIB Longword; /* RSPID OF REQUEST TO RESISSUE 
end CEMBL KDEF; 


/* Standard Connection Beneger ateer Sub-header */ 
sangre! Serystere prefix CLMCNX$ 


cons ( /* FACILITY SPECIFIC MESSAGE CODES 
ENC. STATUS, /* STATUS 
FNCENTER, /* REQUEST CLUSTER MEMBERSHIP 
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FNC_LOCK /* LOCK REQUEST MESSAGE 
FNC-UNLOCK, /* UNLOCK REQUEST MESSAGE 
FNC-DESC, /* NODE DESCRIPTION MESSAGE 
FNC-VEC, /* VECTOR SLOT DESCRIPTION mE 
FNC-FORM, /* NEW CLUSTER PROPOSAL (PH 1) MESSAGE 
FNC_RECONFIG, /* CLUSTER RECONFIGURATION PROPOSAL (PH 1) MESSAGE 
FNC_J IN, /* ADD NODE PROPOSAL (PH 1) MESSAGE 
FNC-PH2, /* PHASE 2 MESSAGE 
FNCREADY /* NODE IS READY FOR FAILOVER STEP MESSAGE 
FNC_DOSTEP, /* DO FAILOVER STEP MESSAGE 
FNC_QUORUM, /* QUORUM CHANGE (PH 1) MESSAGE 
FNC TRNSTS /* TRANSITION STATUS REQUEST MESSAGE 
FNC TOPOLOGY /* TOPOLOGY EXCHANGE MESSAGE 
) equals 1 increment 1; 
FILL_1 byte dimension CLMHDRSK_LENGTH; /* SPACE FOR HEADER 
XTN_ID Longword unsigned; /* TRANSACTION NUMBER 
XTN_PHASE yte unsigned; /* TRANSACTION PHASE 
constant ( 
IDLE, /* IDLE = NO TRANSACTION 
LOCK, /* LOCK PHASE 
DATA, /* DATA EXCHANGE PHASE 
PHI, /* PHA 
UNLOCK, /* UNLOCK PHASE 
PH /* PHA 


) equals 16 increment 16; 


XTN_CODE byte unsigned; / NTIFIER 
constant ( / NTIFIER CODES 

XTN_FORM, /* FORM CLUSTER 
XTN_JOIN, /* ADD NODE TO CLUSTER 
XTN_RECONFIG, /* RECONFIGURE CLUSTER 
XTN_QUORUM /* QUORUM CHANGE 
) equals 1 increment 1; 

ACK byte unsigned; /* SUCCESS/FAILURE FLAG 

REPLY structure byte unsigned; /* REPLY CODE 


RP_TRNSTS_CMT bitfield mask; /* COMMIT RESPONSE FLAG FOR TRNSTS REQUEST 


constant /* TRNSTS RESPONSE COD 

RP_TRNSTS_PHO /* TRANSACTION IN OR PRECEDES PHASE 0 
RP~TRNSTS_PH16, /* — TRANSACTION IN PHASE 1, COORD CNX BROKEN 
RP_TRNSTS_PH1, /* TRANSACTION IN PHASE 1, COORD CNX OK 
RP_TRNSTS_PH2 /* TRANSACTION HAS BEEN COMMITED 
) @quals T increment 1; 

end REPLY; 

constant HEADER equals .; /* STANDARD MESSAGE SUB-HEADER LENGTH 


end CLMCNXDEF ; 


/* Connection Manager Coordination Lock Request Message */ 

CLMLCKDEF structure prefix CLMLCK$; 
FILL_1 byte dimension CLMCNXSK_HEADER; /* SPACE FOR HEAD AND SUB_HEADER 
XTN_TIME quad /* TIME-STAMP FOR TRANSACTION 


word; 
constant ° rath equals .; /* MESSAGE LENGTH 
end CLMLCKDEF; 


R; /* SPACE FOR HEAD AND SUB_HEADER 
/* SYSTEM ID 


CLI 


enc 


CLUSTER.SDL;1 
FILL_2 word fill; /* 
SWINCARN quadword; /* 
CSID Longword unsigned: /* 
constant “LENGTH™ Fouels of /* 


end CLMNODDEF; 
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SPARE WORD T 
SOFTWARE INC 
TENTATIVE CS 
MESSAGE LENG 


O ALIGN DATA 
Ty ATION NUMBER 
TH 


/* Connection Manager Cluster dea Message */ 


/* General Phase 1 mer = 
CLMPRODEF structure prefix 
fit. 1 byte Staone jen CLMENABK. “HEADER; 


NEXT-CSID word pk ae : / 
QUOROM word unsigne /* 
MEMSEQ word unas gnee /* 
QDVOTES word unsigned; /* 
FMERIT caneere unsigned; /* 
FTIME quadword; /* 
CURTI quadword; /* 
FLAGS structure byte unsigned; /* 
QF _VOTE bitfield mask; /* 
end FLAGS; 
FSYSID byte dimension (6) . /* 
NODEMAP byte dimension( 25; /* 
constant “LENGTH’ “equals .; /* 
end CLMPRODEF ; 


/* Connection Manager Cluster Vector Entry 
CLMVECDEF structure prefix CLMV 
FILL_1 byte dimension CLMCNXSK._ HEADER; 
INDEX word unsigned; /* 
SEQUENCE word unsigned; /* 
constant “‘LENGTH"' Seuals o3 /* 
end CLMVECDEF; 


/* SPACE FOR HEAD AND SUB_HEADER 
CSID_ ASSIGNMENT CONTEXT 
CLUSTER QUORU 
MEMBERSHIP TRANSITION SEQUENC R 
NUMBER OF VOTES ASSIGNED TO QUORUM DISK 
FIGURE OF MERIT OF PROPOSED CL 
CLUSTER FORMATION TIMESTAMP 
oy RRENT 


-sc- 


TER STATUS BITS 
QUORUM FILE IS A CLUSTER MEMBER 


FOUNDING NODE SYSTEMID 
BITMAP OF NODES 
MESSAGE LENGTH 


Description */ 


/* SPACE FOR . ae SUB_HEADER 
INDEX. OF DESCRIBED ENT 
LAST SEQUENCE NUMBER 
MESSAGE LENGTH 


/* Connection Manager Topology 5s Exchange Message */ 


CLMTOPDEF structure prefix C 
FILL_1 byte dimension C RCS’ ete 
NOD y.te dimension(52); 
constant "LENGTH" equals .; is 
end CLMTOPDEF; 


/* Connection Manager Status nessoge/Reply 
CLMSTSDEF structure prefix CLMSTSS$; 
FILL_1 byte dimension CLMHDRSK_ LENGTH; 
FLAGS Structure byte unsigned;~ 
eld mask; 


/* SPACE FOR ae AND SUB_HEADER 
* CONNECTIVITY BITMA 
MESSAGE LENGTH 
«/ 


/* SPACE FOR HEADER 


is CLUSTER STATUS BITS 


STER bitfield mask; * NODE IS CLUSTER MEMBER 

ct ACTIVE bitfield mask; /* QUORUM FILE READABLE -- STATIC QUORUM 
ole rt bitfield mask; /* CLUSTER SHUTDOWN IN PROGRESS 
FILL sae byte fill; /* SPARE 10. ALIGN FIELDS 
CQUORUM word unsigned; /* CLUSTER QUORUM 
CVOTES word unsigned; /* CLUSTER VOTES 
NODES word unsigned; /* NODES IN CLUSTER 
NQUORUM word unsigned; /* NODE QUORUM SETTING 
NVOTES word unsigned; /* NODE'S VOTES 
QDVOTES word unsigned; /* NUMBER OF VOTES HELD BY QUORUM DISK 
LCKDIRWT word uns gned; /* LOCK MANAGER DISTRIBUTED DIRECTORY WEIGHT 


- 


= 
ad 
nm 
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EXTENSION_2 union; | 
LOCK_MSGS structure; 
FILL_1 byte dimension CLMHDRSK_LENGTH; /* SPACE FOR HEADER 
MEMSEQ word unsigned; /* MEMBERSHIP SEQUENCE NUMBER 


HASHVAL word uns 


gned; /* RESOURCE HASH VALUE 
mene OVERLAY union fill; 


PIBNEW Longword unsigned; /* EPID FOR NEW LOCK REQUESTS 
MSTLKID songwere unsigned; /* MASTER LOCK ID 
end MSTLKID_OVERLAY; 
PRCLKID Longword unsigned; /* PROCESS LOCK ID 


EXTENSION union; 
/* New lock and rebuild lock message extension 


| 
FTIME quadword: /* TIME OF FOUNDING {1 
LST_TIME quadword; /* TIME=STAMP OF LAST COMPLETED TRANSACTION 
MAX"XTN Longword unsigned; /* LARGEST TRANSACTION ID SEEN | \ 
QDISK byte dimension(16); /* QUORUM DISK NAME 
REFTIME quadword; /* REFERENCE TIME FOR NODE | t 
constant ‘LENGTH’ equals .; /* MESSAGE LENGTH * 
end CLMSTSDEF ; | {* 
/* Failover sequencing pessage definition */ | {* 
CLMSTPDEF structure prefix CLMSTPS$; {* 
FILL_1 byte dimension CLMHDRSK_LENGTH; /* SPACE FOR HEADER | {* 
1D Longword unsigned; /* FAILOVER IDENTIFICATION ts 
STEP Longword unsigned; /* FAILOVER STEP INDEX | * 
constant ‘‘LENGTH' equals ey /* MESSAGE LENGTH {* 
end CLMSTPDEF; | 3° 
{* 
/* | {* 
ja Lock manager message definitions 3° 
{* 
LKMSGDEF structure prefix LKMSGS; ¢ 
constant ( /* FACILITY SPECIFIC MESSAGE CODES {* 
NEWLOCK, /* NEW LOCK REQUEST {* 
GRANTED, /* LOCK GRANTED MESSAGE {e 
Q, /* DEQUEUE MESSAGE {* 
RMVDIR, /* REMOVE DIR. ENTRY MESSAGE {* 
BLKING, /* BLOCKING MESSAGE {* 
CVTLCKM, /* CONVERT LOCK MESSAGE {* 
CVTLCKR , /* CONVERT LOCK REQUEST {* 
REBLOLOCK, /* REBUILD LOCK (FAILOVER) {* 
TSROST /* TIMESTAMP REQUEST {* 
SRCHDLCK, /* SEARCH FOR DEADLOCK {* 
DLCKFND, /* DEADLOCK FOUND {* 
REDO _SRCH /* REDO DEADLOCK SEARCH | {* 
) equals 1 increment 1; :" 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
L 
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NEWLOCK structure; 
FLAG 


S$ word yom me /* FLAGS 

RQMODE pyte unsigned; /* REQUESTED MODE 
GRMODE byte: /* GRANTED MODE 
BLKASTFL Longword unsigned; /* BLOCKING AST FLAG 
PARPRCLKID Longword uns gned; /* PARENT PROCESS LOCK ID 
PARMSTLKID Longword unsigned; /* PARENT MASTER LOCK ID 
GROUP word unsigned; /* GROUP NUMBER 
RMOD byte ght ee /* REQUEST ACCESS MODE 
tps N byte Fa yee ert NAME LENGTH 

ESNAM ¢ rite 4 ro 32 tag T RESOURCE NAME 


DL CKPRI NEW Longword unsigned; js DEADLOCK PRIORITY FOR NEW LOCKS 
/* Extension for rebuild lock message 


poseee.t word unsigned; /* ALTERNATE REQUEST SEQUENCE NUMBER 
FILL_7 word fill; /* SPARE 
VALBTKALT quadword unsigned; /* ALTERNATE 3 BLOCK 
FILL_2 quadw Ll; /* MORE VALUE BLOC 
VALSEQALT Longword unsigned; /* A ALTERNATE VALUE BLOCK, SEQ. NUMBER 
LSTATUS byte unsigned; /* LKB STATUS (BYTE F 
RSTATUS byte unsigned; /* RSB STAT (BYTE FORM) 
LCKSTATE yte unsigned; /* LOCK STATE 
end NEWLOCK; 


/* Resend and not queved response to new lock message 


RESEND structure; 
CSID Longword unsigned; /* CSID OF SYSTEM TO RESEND TO 
STATUS word unsigned; /* RETURN STATUS 
STATE byte unsigned; /* RESPONSE STATE 
end RESEND; 
/* Lock queued response to new lock message 
LOCKQED structure; 
LKBSTATUS word unsigned; /* LKB status 
RSBSTATUS word Pett ae /* RSB status 
FILL_3 longword fil /* STATUS AND STATE 
VALBCK quadword unsigned; /* VALUE BLOCK 
FILL_5 Mesvere fill; /* MORE VALUE BLOCK 
SEQNOM_ OVERLAY union fill; 
RQSEQNM word unsigned: /* REQUEST SEQUENCE NUMBER 


VALSEQNUM Longword unsignea;/* VALUE BLOCK SEQUENCE NUMBER 
bo" Cine « sen mr unsigned; /* EPID FOR CONVERSIONS 
© 
DLCKPRI NCVT” Longword unsigned; /* DEADLOCK PRIORITY FOR CONVERSIONS 
end LOCKQED> 


/* Dequeve message 


DEQ ptructure: 
6 longword fill; /* FLAGS and MODES 
a VALBCKFLG ongword unsigned; /* VALUE BLOCK FLAG 


———ee 


CSF 


PAA AAA 
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end EXTENSION; 
end LOCK_MSGS; 
DLCK_MSGS structure; 
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FILL_1 byte dimension CLMHDRSK_LENGTH; /* SPACE FOR HEADER 
FILL_2 word fill; * SPACE FOR MEMSEQ 
TSLT byte unsigned: /* TIMESTAMP LIFETIME 
FILL_5 byte fill; /* SPARE 
ORIGEPID Longword unsigned; /* ORIGINAL EPID 
ORIGLKID lLongword unsigned; /* ORIGINAL LOCKID 
ORIGCSID Longword unsigned; /* ORIGINAL CSID 
BITMAP_EXP quadword metered /* BITMAP EXPIRATION TIMESTAMP 
VCTMPRT Longword unsigned; /* VICTIM PRIORITY 
VCTMLKID longword unsigned; /* VICTIM LOCKID 
VCTMCSID longword unsigned; /* VICTIM CSID 
NEXTLKID lLongword unsigned; /* NEXT LOCKID TO SEARCH FOR 
constant DLM_LENGTH equals .; /* LENGTH OF DEADLOCK MESSAGE 
end DLCK_MSGS; 
end EXTENSION_2; 
end LKMSGDEF; 
/t 
fe Common journaling message definitions 
CJMSGDEF structure prefix CJMSG$; 
constant ( 
MSGCREJNL /* Create journal UCB in message 
-BLKCREJNL /* Create journal block transfer the UCB 
-DELJNL /* Delete journal message sent to master 
-DELUCB /* Delete journal UCB 
»ACCJNL /* Access journal 
»DEACCJNL /* Deaccess journal 
-MSGWRITE /* Write from message buffer 
-OLKWRITE /* Block transfer over Cl 
/* and then write 
-MSGREADINI /* Read init sete buff in msg 
eBLKREADINI /* Read init block xfer cplx buff 
»rioGREADCPLX /* Read genplex buff xfer in msg 
-BLKREADCPLX /* Read block xfer complex buff 
~MSGREADDATA /* Xfer read data to slave in msg 
~BLKREADDATA /* Block xfer read data to slave 
CANCEL /* Cancel 10 for channe 
FORCE /* Force 10 for channel 
-FLUSH /* Flush all writes for journal 
-BCSTDELJNL /* DELJNL message oreedcast to all nodes 
-ACKWRITE /* ACK a write that is in a CWQ queue 
-GMINFO /* Get-Master-Info from slave 
, INQWRBUF /* Inquire-Write-Buffer from node 
»RESUBRC /* Resubmit read-context for re-readinit 
-RESUBWR /* Resubmit a given write 
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} 
»WRTFOVRCPL /* Write-Fail-Over-Complete 
»GETPART /* Get part of encry ie kept fn buffer 
»RUEBIT /* Set/Clear bi 
-BCSTDELPND /* Delete pending message proadcast to all nodes 
»REQINIT /* Request beginnin nit node function 
-BLKINIT /* Block Xfer init data to the new node 
*BLKJNLRC 7 Block transfer JNLRC block 
{/* Add new codes her 


er 
»HIGHBOUND) equals 1 ieee F 
JOURNAL _MESSAGES union fill; 

/* Return status Journos! {Bessage 


died 5 | tise fury 
orte d mens on. CLMHDRSK_LENGTH fill; /* SPACE FOR HEADER 
TIM TAT union fill; 
TATUS quadword unsi gned; /* Return status 


ea NO_OVERLAY Structure fill; 
SEQNOFILL Longword fill; | 
SEQNO Longwor unsigned: /* Return entry sequence number 

end SEQNO OVERLAY; 

end WRT_JNL_STAT; 

| 
j 
| 
| 
| 
| 


STAT ~VACS LSngword unsigned; /* Extra lLongword of misc data 
STAT_VAL5 Longword unsigned; /* Extra longword of misc data 
STAT =VALG Longword unsigned; /* Extra longword of misc data 
STAT_VAL? Longword une | ned: /* Extra longword of misc data 
STAT-VAL8 Longword unsi gned /* Extra longword of misc data 


constant ‘‘STATUS_LENGTH 
end STATUS. MSG; 


SEND ree p P*rusturs 
byte d mension CLMHDRSK _BT_LENGTH fill; /* SPACE FOR HEADER 
me at RLAY union fill ; 


equals -— /* Status message length 


sth str unsigned; /* Master node CSID 
etre turt fill; 
SEQ word unsigned; /* Master CSID sequence number 
RCS 1D- ibx word unsigned; /* Master CSID node index 
end MCSID 3 SUBF 
end MCSID_OVERLAY ; ' 
MUNIT word uns ned: /* Master node unit number 
JNLTYP byte une gned; /* Journal type 


FILL_2 byte fill ; 
JNL_EXTENSIONS union fill; 


/* Generic function message extension 
FNCT_MSG structure fill; 


s 


AL1 lLongword unsigned; /* Extra longword of misc data 
vA Longword unsigned; /* Function code + were misc data 
VALS longword unsigned; /* Sender's UCB addre 
VAL4 longword unsigned; /* Extra longword of : sc data 
VALS longword uns igned; /* Extra longword of misc data 
VAL6 longword unsigned; /* Extra longword of misc data 
VAL? longword melee /* Extra longword of misc data 


VAL8 Longyord unsi gned /* Extra conguore of misc data 
constant ‘‘FNCT_LENGTH “equals . ;  /* FNCT message length 
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end FNCT_MSG ; 
/* Create journal messaor. extension 
CREATE_MSG structure f 
RMBLK LENGTH Longword unsigned; /* Length of data for MSGCREATE 


/ 
uns igned; ve th Creator's EPID 


ENI 


m o 
Zz yn 


CR “BIRSEONG sengeers unsigned; * Block transfer seq no 
CRE Longwor 
R- HAN word unsigned; * Channel index 
CR_RMOD byte roag | ee /* requestors access mode 
RMBLK character e tenG 49 /* Beginning of remaster block for MSGCREATE 
constant. — ENGTH equals - > /* Create message length 


end CREATE_M 


/* Write message extension for message sent to the master 
ae | JNL_SND structure fill; 


word unsigned; /* Original 1/0 function 
BYTCNT word unsigned; /* Count of bytes in message 
WRUFLAGS Longword unsigned; /* W flags. 
LSEQNO Longword unsigned; /* Peaae poquence number 
WRMASK longword unsigned; /* Write ma 
ASID Longword unsigned; /* Assign 1D for the channel 
WRT_PRIV quadword unsigned; /* ARB priv mask 
FACCOD word unsigned; /* Channel facility code 
IOSTS byte unsigned; /* 1/0 status (used only for writes) 
WRATR byte unsigned; /* Write attributes 
WRT_EPID Longword unsigned; /* Writer's EPID 
WRT-BTXSEQNO Lon peck unsigned; /* Block transfer seq num 

/* Status from IRP 


WRT =$i8 word uns gree 
WRT_CHAN word uns gned: /* Channel index 
WRT-RMOD byte une jpned /* requestors access mode 
ngt \ /* Base of journal entry in a message 
constant ‘WRITE_LENGTH’ ae -; /* Write message Length 
end WRITE_JNL_SND; 


/* Read and read init message extension 
READ_MSG structure fi 
STATUS_OV ERLAY union fill 
RESP P_ST iT structure HLL; 
READ_STATUS quadword unsigned; /* Read init return status (response) 
READ SEQNO Longuerd unsigned; /* Seq no of last entry 
RUID-OVLY union fill; 
READ_RUID octaword unsigned;:/* Recovery unit ID ( RU only ) 
4 READ. op bw quadword unsigned; /* Date/time of Last eatery ( nonRU only ) | 
en 
end RESP_STR ROCTS 
SEND OS TROCT structure fill; | 
lLongword uns igned; /* JOST! from IRP 
13) lLongword “nee /* JOST2 from IRP 
RDF UNC d a Original 10 Tygctton 


d; 
RDACMODE Longwor unsigned; ie Access mode of caller 
ARB att yenguore unsigned; /* UIC from reader's ARB 
ane? teueyeenoré uns gned; /* Privilege mask from reader's ARB 


end SEND | 
end STATUS NOVERLAY, 


RUID octaword unsigned; /* R moeevery ype ID. 
| 
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NUM_DESC word unsigned; /* # of descriptors in cplx buff 
BUFF _LEN word unsigned; /* Length of buffer 

RD_BTXSEQNO Longword unsigned; /* Block transfer seq num 
RD_IRP Longword ras gness /* requestor's IRP address 
RD_CHAN word unsigned; /* channel index 

RD_CPLXLEN word unsigned; /* size of complex buffer 
RD_RMOD byte unsigned; /* requestors access mode 
CPCX_BUFF character Length 19; /* Start of complex buffer 


constant "READ_LENGTH' equals .; /* Read message length 


/* Return from Get-Master-Information message 
MINF MSG structure fill; 
MINF_STATUS Longword unsigned: /* Status 
MINF FLAGS OVERLAY union Till; /* flags 
MINF_FCAGS Longword unsigned; /* flags longword 
MINF BITS structure fill; /* bits defined in flags longword 
MINF_REF bitfield mask; /* reference count > 0 
ae ee bitfield mask; /* marked for dismount 


end MIN 
end MINF_FLAGS_OVERLAY ; 
constant ‘MINF_LENGTH’’ equals .; /* Get-Master-Info message Length 
end MINF _MSG; 


/* Get-write-Buffer information 
Cae aon structure fill; 


GWRBUF _UNIT word unsigned; /* unit # new master 

GWRBUF _SPARE1 word unsigned; /* spare word 

GWRBUF_CSID Longword unsigned; /* CSID new master 

GWRBUF_LAST Longword unsigned; /* seq # last entry info sent for 
GWRBUF_ADDR Longword unsigned; /* address info block if one exists 


constant ‘‘GWRBUF_LENGTH ' em -: /* Get-Write-Buffer info message Length 
end GWRBUF _MSG; 


/* Return Write Buffer message 
RWRBUF MSG structure fill; 
RWRBUF_STATUS lLongword unsigned; /* status 


RWRBUF_LAST Longword unsigned; /* seq # Last entry sent here 
RWRBUF _ADDR lLongword unsigned; /* address of info block on new master 
RWRBUF _BFR longword unsigned; /* start JNLMSG message block 


constant ‘‘RWRB F LENGTH’ equals -; /* Return Write Buffer info message length 
end RWRBUF _MSG; 


end JNL_EXTENSIONS; 
end SEND_MSG ; 
end JOURNAL_MESSAGES ; 
end CJMSGDEF; 


/* 
pe GETLKI message definitions 
® 
LIMSGDEF structure prefix LIMSGS$; 
constant ( /* FACILITY SPECIFIC MESSAGE CODES 


CLUSTER.SDL;1 
STDINFO, /* 
BLKING, /* 
BLKBY, /* 
® 


LOCKS 
) equals 1 increment 1; 
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GET STANDARD LOCK INFORMATION 
REQUEST LIST OF BLOCKING LOCKS 
REQUEST LIST OF BLOCKED BY LOCKS 
REQUEST LIST OF LOCKS ON RESOURCE 


FILL_1 byte dimension CLMHDRSK_BT_LENGTH; /* SPACE FOR HEADER 


MSTLKID Longword unsigned; /* 
PRCLKID longword unsigned; /* 
STATUS b — go t@neds /* 
cons ( 
RSPSUCCESS, /* 
RSPIVLKID, /* 
eo E /* 
equals 1 increment 1; 
FILL_2 byte unsigned; /* 


EXTENSION union; 
/* Standard lock information message 


STDINFO structure; 

FitL 3 word unsigned; /* 
STATE Longword unsigned; /* 
RSBREF CNT lLongword unsigned; /* 
LCKCOUNT Longword unsigned; /* 
VALBLK quadword uae eite: /* 
ALTVALBLK quadword f 

constant ‘“STDINFO_LEN"’ equals 3v* 


end STDINFO; 
/* ALL List return messages 
LIST structure; 
LISTSIZE word unsigned; /* 

end CIs: 

end EXTENSION; 
end LIMSGDEF; 
end CLSMS 


GUNION 
constant MAXMSG’ equals .; /* 
end CLSMSGSTRUCT; 


END_MODULE SCLSMSGDEF ; 


MASTER LOCK ID 
PROCESS LOCK ID 
RETURN STATUS 


SUCCESS 
INVALID LOCKID 
MORE DATA TO COME 


UNUSED BYTE 


UNUSED _ 
LOCK STATE 

SUB-RE SOURCE gh ay ty i 
COUNT OF LOCKS oe “> es RCE 
RESOURCE VALUE B 

MORE VALUE BLOCK 

Standard info message length 


NUMBER OF BYTES IN LIST 


SIZE OF LARGEST CLUSTER MESSAGE 


module SCLMDRSDEF ; 


{w+ 
i CLMDRS = CLUSTER DISCONNECT/REJECT STATUS FORMAT 
/* THIS DEFINES THE CLUSTER DISCONNECT/REJECT STATUS CODES 


constant "‘LENGTH’’ equals . tag K;  /* LENGTH 
end CLMDRSDEF; 


END_MODULE SCLMDRSDEF ; 
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aggregate CLMDRSDEF structure prefix CLMDRSS$; 
CODE byte unsigned; /* DISCONNECT/REJECT REASON CODE 
constant ( /* DISCONNECT/REJECT CODES: 
RESOURCE, /* RESOURCE ERROR 
PROTOCOL, /* PROTOCOL ERROR 
VERSION, /* INCOMPATIBLE PROTOCOL VERSION 
BUSY, /* INCOMPATIBLE ACTIVITY IN PROGRESS 
REMOVED /* NODE HAS BEEN REMOVED FROM CLUSTE 
) equals 2 increment 2 tag C; 
FATAL bitfield Length 1 MASK; /* RECIPIENT SHOULD BUGCHECK 
CLUSFTL bitfield Length 1 MASK: /* RECIPIENT CLUSTER SHOULD BUGCHECK 
DEADCNX bitfield Length 1 MASK * CONNECTION IS DEAD 
LONG_BREAK bitfield ength 1 MASK; /* DECLARE LONG BREAK 
FILL. 1 bitfield lengt fill; /* PAD TO WORD BOUNDARY 
DRS Bitfield Length 1 MASK; /* MARK THIS AS A CLMDRS code 
constant “‘LENGTH’ equals . tag C; /* LENGTH 
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goane SCNCTDEF; 

ae CNCT = CONNECT MESSAGE FORMAT 

~ THIS DEFINES THE FORMAT OF THE CONNECT MESSAGE 
t= 


EVEL 
ON NUMBER 


C 
SERNUA byte epee /* PROTOCOL VERS 
constant PROTOCO equals 12 tag K; /* PROTOCOL LEVEL 
TYPE byte were ed; /* CONNECT TYP 
constant INIT] L equals 1; /* Me CONNECTION 
constant RECONNECT equals 2; /* REMAKE BROKEN CONNECTION 
ACKLIM byte unsigned; /* ACK LIMIT 
ne Comet DATA s rerture fill; /* RECONNECT/REACCEPT DATA 
word unsigned; /* CLUSTER QUORU 
vores word unsigned; /* CLUSTER VOTES 
NODES word unsigned; /* NODES IN eh yeree 
CLSSTS structure byte unsigned; /* CLUSTER STATUS FLAGS 
~ vere bitfield mask; /* SENDER NODE IS CLUSTER MEMBER 
e 
CNXSTS structure ores unsigned; /* CONNECTION STATUS FLAGS 
LONG BREAK bitfield mask; /* LONG BREAK IN CONNECTION 
MEMBER bitfield mask; /* RECEIVER IS MEMBER OF SENDING CLUSTER 
a Caner. bitfield mask; /* RECEIVER REMOVED FROM SENDING CLUSTER 
end RECONNECT DATA; 
FILLS wo word unsigned: /* LAST SEQUENCE NUMBER RECEIVED 
FILL.5 word fill; /* SPARE 
constant TeeNGTHe equals . tag K; 
end CNCTDEF; 


END_MODULE SCNCTDEF; 


F 
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godule SCLUBTXDEF; 
CLUBTX = CLUSTER BLOCK TRANSFER CDRP EXTENSTION 
/* This defines the format of a block transfer extension to _ +4 used 


/* by the cluster opanoys oSeet message services. Such CORPs 

/* CDPRSL_LBUFH_AD (or CDRPSL_VAL1) which points to CLUBTXSL CRUE HNDL. 
/* On such nodes, CDRPSL_LBUFA_AD points to the buffer handlé within 
je the BIX. 

t= 


aggregate CLUBTXDEF structure prefix CLUBTX$; 


XQFL Longword unsigned; 
41" : ers ste: 
unsigned; 


/* A queue forward Link 
/* A queue backward Link 
/* Structure size 
size byte ag ae /* Structure type 
SUBTYPE byte unsi /* Structure subtype 
LBUF HNDL no geet "unsigned dimension 3; is Local buffer handle 

/ 

/ 

/ 

/ 

/ 


CDRP Longword unsigned; * Address of owning CDRP 
CSID pace unsigned; * CSID of requestor 
ERRADDR * Error action routine address 


ongword unsigned; 
USER_BUF Longword unsigned; 
SAVED PC Longword unsigned; 


* Address of user M se space base 
MSGBLB Longword unsigned; 


* Saved caller's 
* Auxiliary nesseee build routine 


ae End of requestor BIX 

/* Note: although the requestor BIX is much shorter, it is still allocated 

/* based upon the base size of the (longer) partner BIX. Since a SRP is 

/* allocated in either cae? this is unimportant. 

{ This ends the defined BIX. Fathoutent the cefined area is a copy of 

{ the nay message buffer. CLUBTXS$T_MSG_BUF is the offset Shen the 

{ BIX base to the beginning of the Seed” mesSage. 

constant “‘LENGTH'’ equals .; 

MSG_BUF character varying; 
end CLUBTXDEF; 


end_module SCLUBTXDEF ; 


/* Base of copied message buffer 


z 
o 
al 


AAA AAAAAAAAAAAAAAAAAAAAAA 


een eeeeeeeeee eee ee eee 


PAA AAAAAASAAAAAAAAAAAAAAAAAAGS 


< 


2 


> 
mn > o 
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module SCLUQFDEF; 


/e+ 
pe CLUQF = Cluster Quorum File offset definitions 


/* This module defines the format of the data in the cluster quorum file. 
/* The quorum file consists of the owner and activity blocks. The owner 

/* block contains information obtained from a node in the cluster currently 
/* using the quorum file. The activity block contains a counter which is 

. incremented by members of the cluster currently using the quorm file. 

Re 


aggregate CLUGF structure prefix CLUQFS; 
/* Start of owner block 


IDENT character length 12; /* Quorum block identification area 
: /* Quorum block version number 
FLAGS UNION union fill; 


FCAGS word unsigned; /* Flags word 
FLAG BITS structure fill; 
GUORUM bitfield mask; /* Cluster has dynamic quorum 
end FLAG BITS; 
end FLAGS_UNION; 
FOU_TIME quadword unsigned; /* Founding time E 
LST_TIME quadword unsigned; /* Last cone epee transaction time-stamp 
QF TIME quadword unsigned; /* Quorum block time-stamp 
SWINCARN quadword unsigned; /* Software incarnation number 
CSID_UNION un fill; 
CSD Longword unsigned; /* Cluster system ID 
CSID_FIELDS structure fill; 
CSID_IDX word unsigned; /* Slot index 
CSID_SEQ word unsigned; /* Sequence number 
end CSID Fl : 
end CSID_UNION; 
QUORUM word unsigned; /* Cluster quorum 
VOTES word unsigned; /* Cluster votes 
SYSID byte une tered dimension 6; /* System ID 
deta yte unsigned dimension é; /* Founding nodes SYSID 
® 
~ Note that CLUQFS$L_CHECKSUM must be longword aligned 
CHECKSUM Longword unsigned; /* Quorum block checksum 
constant CHECK_LENGTH equals . tag C; /* Length of the quorum block fields 
constant CHECK_LENGTH equals . tag K; /* that contribute to the checksum 
IGNORE byte unsigned; /* If non-zero, data in querua 
/* file should be ignore 


/* End of owner block 


constant OWNER_LENGTH equals . tag C; /* Quorum file owner block Length 
constant OWNER_LENGTH equals . tag K; /* Quorum file owner block Length 


SPARE byte dimension 512-.; 


Start activity block on next block boundary 


z 
Oo 
Daal 


é 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
c 
{ 
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/* Start of activity block 


ACT_COUNT Longword unsigned; /* Activity counter 

/* End of activity block 

constant ACT_LENGTH equals . “218 tag C /* Quorum file activity block Length 
constant ACT_LENGTH equals . tag K /* Quorum file activity block length 
constant "LENGTH" equals . tag C; /* Quorum file Length 

constant “‘LENGTH’’ equals . tag K; /* Quorum file Length 

constant BLOCKS equals 2 tag C; /* Number of blocks in quorum jile 
constant BLOCKS equals 2 tag K; /* Number of blocks in quorum file 
constant VERSION equals § tag C /* Quorum block version number 
constant VERSION equals 2 tag K: /* Quorum block version number 


end CLUQF; 
end_module SCLUQF DEF; 
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